E (SETQ $PRINT-BUDGET-MONTHLY nil) READ (SALARY IN DSK (PRO HE)) READ (ARPA IN DSK (PRO HE)) BUDGET ((4 81)(9 81)) (ARPA OUT DSK (PRO HE))